﻿Imports Lincker.US

Namespace Procesos
    Public Class WPpruebaWizard
        Dim _Pruebas As IPrueba

        Private Sub WPpruebaWizard_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                'Referencia el objeto de negocios relacionado
                _Pruebas = CType(RemotingHelper.getObject(GetType(IPrueba)), IPrueba)
                Me.ObjetoReglasNegocio = _Pruebas

                'Elimina las páginas sobrantes de la plantilla
                Me.RemovePage(6)
                Me.RemovePage(5)
                Me.RemovePage(4)
                Me.RemovePage(3)

            Catch ex As Exception
                Lincker.US.Display.ShowError(Me.ToString.Substring(0, Me.ToString.IndexOf(",")), Common.Env.Operador, Common.Env.Terminal)
            End Try
        End Sub

        Private Sub WPpruebaWizard_CambioPagina(ByVal indice As Integer) Handles Me.CambioPagina
            Select Case indice
                Case 0
                    'Página de inicio
                Case 1
                    'Página de rangos obligatorios
                    If Me.LnkDesdeHastaFecha1.Hasta > Now Then
                        Lincker.US.Display.MsgBox("Debe ingresar una fecha anterior a la actual como tope de la depuración.", _
                            "Validaciones", Display.MsgBoxTipos.msgAlerta)
                    End If
                Case 2
                    'Página de rangos opcionales
                Case 7
                    'Página final
                    If Not Me.LnkDesdeHastaFecha1.dtDesde.Checked Then
                        Lincker.US.Display.MsgBox("Debe ingresar una fecha tope para la depuración.", _
                            "Validaciones", Display.MsgBoxTipos.msgAlerta)
                    End If
            End Select
        End Sub

        Private Sub WPpruebaWizard_Ejecutar() Handles Me.Ejecutar
            Try
                'Ejecuta el método de negocios para depurar registros
                Me._Pruebas.Depurar(LnkDesdeHastaFecha1.dtHasta.Value, _
                    LnkDesdeHastaNumerico1.Hasta)
                Display.MsgBox("Depuración terminada exitosamente.", _
                    "Información", Display.MsgBoxTipos.msgInformacion)
            Catch ex As Exception
                'Informa de posibles errores
                Display.ShowError(ex, "Error durante la ejecución del proceso")
            End Try
        End Sub

    End Class
End Namespace
